home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 37
/
Tiger_Disk_037_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
--- schluss! ---
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
50 lines
10 poke53280,.:poke53281,.:print"[147]":rem gemacht von lukian
20 print" [213][195][195][195][195][195][195][195][195][195][195][201]
30 [153]" peekprinttoandposnewor^newposandtocontpeek
40 print" [194] [194]
50 [153]" peekau revoir!waitcontpeek
60 print" [194] [149] .. [154] [194]
70 [153]" peek verify step(NULL)(NULL)(NULL)(NULL)(NULL) cont peek
80 print" [194] [149] () [154] [194]
90 [153]" peek verify mid$(NULL) cont peek
95 print" [202][195][184][184][184][184][184][184][184][184][146][195][203]
100 [153]"poke *************rnd
110 print"[151] [207] [162][162][162][162][162][162] [208]
120 [153]"poke usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
130 print"[129] druecke [162][162][162][162][162][162] "
140 poke198,0:wait198,1:geta$
145 ifa$=chr$(160) then 150
160 s=54272:pokes+24,15:pokes,33:pokes+4,17:pokes+5,26:pokes+6,17:pokes+1,33
165 pokes+7,33:pokes+8,240:pokes+12,17:pokes+13,202
170 print"[147]":v=53248:pokev+21,255
175 fors1=12288to12350:readq1:pokes1,q1:next
180 fors2=12352to12441:readq2:pokes2,q2:next
185 fors3=12448to12455:readq3:pokes3,q3:next
190 :pokev,255:pokev+1,147:
200 p=190:pokev+1,p:
205 forx=0to347step3
215 rx=int(x/255):lx=x-rx*255:
220 pokev,lx:pokev+16,rx:print"[151] ende der disk [157]";:print;
225 ifp=191thenprint"[158]_[157][157][145]";:gosub330
230 ifp=192then print"[144] [157]";:gosub350
235 poke2040,p:print"[149] ";:poke2040,p-2:pokev+39,11:fort=1to3:next
240 p=p+1:ifp>194thenp=190:pokev+39,13
242 fory=0to340step-5:pokev+23,1:pokev+29,1:pokev+8,y/p:pokev+4,240:print"[145] ";;;
243 pokev+2,200:nexty
245 print" ";: next::goto400
255 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240,0,0,0
260 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
265 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
270 data0,0,0,0,0,0,0,0,0
280 data0,0,0,244,88,240,134,84,128,197,82,192,132,212,128,244,88,240
285 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
290 data0,0,0,0,0,0,0,0,0,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0
295 data1 ,1 ,1
305 data63,248,0,120,15,224,127,3,252,240,0,196,224,0,112,224,3,64
310 data199,3,192,141,192,96,136,64,48,140,0,24,134,0,120,131,128,64,129,1,224
315 data129,195,192,128,0,96,128,0,32,192,0,32,96,3,224,112,6,0,48,12,0,31,248,0
330 pokes+4,129:pokes+4,128:return
350 pokes+11,65 :pokes+11,64 :return
355 pokes+15,17 :pokes+15,16 :return
400 ti$="000003":wait161,1:sys58253